(DEFUN C:ALLFOLDERS ( / folder-destination)
  (SETQ folder-destination (dos_getdir "Destination Folder" (getvar "DWGPREFIX") "Select or create a destination folder" T))
  (DOS_MKDIR (STRCAT folder-destination "800 Drawings\\"))
  (FOREACH n
    (LIST "805 Points"
	  "810 Design Drawings"
          "815 Submittals"
          "820 Email"
          "825 As-Builts"
          "880 Extra FIles"
    )
    (DOS_MKDIR (STRCAT folder-destination "800 Drawings\\" n))
  )
  (FOREACH n
    (LIST "01 General"
          "02 Civil"
          "03 Structural"
          "04 Architectural"
          "05 p&Id"
          "06 ENvironmental"
          "07 Telemetry"
          "08 Electrical"
          "09 Mechanical"
          "10 Plumbing"
          "11 Fire"
          "12 Landscape"
          "13 GIS"
          "14 IMaGes"
          "15 eQuipment consultants"
          "16 Other consultants"
          "17 Z contractor shop drawings"
          "Plots"
    )
    (DOS_MKDIR (STRCAT folder-destination "800 Drawings\\810 Design Drawings\\" n))
  )
  (FOREACH n
    (LIST "PDF" "TIF")
    (DOS_MKDIR (STRCAT folder-destination "800 Drawings\\810 Design Drawings\\Plots\\" n))
  )
  (PRINC)
)
(DEFUN C:MINFOLDERS ( / folder-destination)
  (SETQ folder-destination (dos_getdir "Destination Folder" (getvar "DWGPREFIX") "Select or create a destination folder" T))
  (DOS_MKDIR (STRCAT folder-destination "800 Drawings\\"))
  (FOREACH n
    (LIST "805 Points"
	  "810 Design Drawings"
          "815 Submittals"
          "820 Email"
          "825 As-Builts"
          "880 Extra FIles"
    )
    (DOS_MKDIR (STRCAT folder-destination "800 Drawings\\" n))
  )
  (FOREACH n
    (LIST "14 IMaGes"
          "15 eQuipment consultants"
          "16 Other consultants"
          "17 Z contractor shop drawings"
          "Plots"
    )
    (DOS_MKDIR (STRCAT folder-destination "800 Drawings\\810 Design Drawings\\" n))
  )
  (FOREACH n
    (LIST "PDF" "TIF")
    (DOS_MKDIR (STRCAT folder-destination "800 Drawings\\810 Design Drawings\\Plots\\" n))
  )
  (PRINC)
)
(DEFUN C:MUTCDFOLDER ( / folder-destination mutcd-files-lst)
  (SETQ folder-destination (dos_getdir "Destination Folder" (getvar "DWGPREFIX") "Select or create a destination folder" T))
  (DOS_MKDIR (STRCAT folder-destination "MUTCD\\"))
  (SETQ mutcd-files-lst (DOS_DIR "N:\\INTRANET\\CADStandards\\FileStructureAndMaintenance\\800 Drawings\\810 Design Drawings\\MUTCD\\*.*"))
  (SETQ cnt 1)
  (PRINC "\nCopying files")
  (PRINC "\n")
  (FOREACH n mutcd-files-lst
    (IF
      (DOS_COPY (STRCAT "N:\\INTRANET\\CADStandards\\FileStructureAndMaintenance\\800 Drawings\\810 Design Drawings\\MUTCD\\" n) (STRCAT folder-destination "MUTCD\\" n))
      (PROGN (PRINC "\010\010\010\010\010")(PRINC cnt)(SETQ cnt (1+ cnt))(PRINC))
    )
  )
  (PRINC)
)
